home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / shwdlg16.hqx / ShowDialog XCMD 1.6 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1989-05-10  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.6</name>
  5.     <id>-1</id>
  6.     <cardCount>25</cardCount>
  7.     <cardID>12118</cardID>
  8.     <listID>7967</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--ShowDialog XCMD 1.6 demo stack, May 10,1989--The XCMDs and XFCNs in this stack are--┬⌐Copyright 1988,1989 by Jay Hodgdon--                        Ignatz Software--                        587 Cutwater Lane--                        Foster City, CA  94404----                        AppleLink:  D2792--                        CIS:  70411,63--                        GEnie:  JHODGDON--                        MacNet:  HODGDONJon openstackhide msgif the version < 1.2 thenShowDialog 1,3756,"This stack requires at least HyperCard 1.2.1 to work!  (So upgrade!)",TRUEgo homeexit openStackend ifif (item 2 of the loc of cd window) - (item 2 of the screenRect) < 20then hide menubarset userlevel to 5pass openstackend openstackon doMenu whatif what is "Help" then doHelpelse pass doMenuend doMenuon leftvisual scroll rightgo prev cdend lefton rightvisual scroll leftgo next cdend righton arrowKey whatif what is "left" thenleftelse if what is "right" thenrightend ifend arrowKeyon printItput bg fld 3 & return & bg fld 1 & return &┬¼bg fld 2 & return & bg fld 4 into containerput bg fld "Title" into promptPrintDoc prompt,container,prompt,times,12end printIton doHelpglobal theItemif theItem is empty then put 1 into theItemput "About ShowDialog" & return &┬¼"Alert Types" & return &┬¼"cicn's" & return &┬¼"Color Icon Bars" & return &┬¼"Commercial Use" & return &┬¼"Debugging ShowDialog" & return &┬¼"Dialog Types" & return &┬¼"Making a DLOG/DITL Template (a step-by-step guide)" & return &┬¼"Making PICT's" & return &┬¼"Obtaining ResEdit" & return &┬¼"Other X-Commands:" & return &┬¼"┬á┬á┬á┬áAnts XFCN" & return &┬¼"┬á┬á┬á┬áClipToPICT XFCN" & return &┬¼"┬á┬á┬á┬áColorOn XFCN" & return &┬¼"┬á┬á┬á┬áCreditsDialog XCMD" & return &┬¼"┬á┬á┬á┬áTextDialog XCMD" & return &┬¼"┬á┬á┬á┬áPrintDoc XCMD" & return &┬¼"┬á┬á┬á┬áSplashDialog XCMD" & return &┬¼"PICT Maker" & return &┬¼"Registration" & return &┬¼"ResEdit" & return &┬¼"Shareware" & return &┬¼"ShowDialog Types:" & return &┬¼"┬á┬á┬á┬áType 1 (simple Dialogs and Alerts)" & return &┬¼"┬á┬á┬á┬áType 2 (Editable text fields & Check boxes)" & return &┬¼"┬á┬á┬á┬áType 3 (Editable text fields & Radio buttons)" & return &┬¼"┬á┬á┬á┬áType 4 (Editable text fields & Popup menu)" & return &┬¼"┬á┬á┬á┬áType 5 (Help screens and " & the NumToChar of 34 &┬¼"PICT" & the NumToChar of 34 & " dialogs)" & return &┬¼"┬á┬á┬á┬áType 6 (Help screens that cycle)" & return &┬¼"┬á┬á┬á┬áType 7 (Scrolling List)" & return &┬¼"Special Dialogs" & return &┬¼"Splash Screens" & return &┬¼"Window Types" & return into containerShowDialog 1,5001,"",TRUE,80,100if the result = 2 then exit doHelpput "           Help Topics" into promptShowDialog 7,5002,prompt,geneva,9,container,theItem,"one"if line 1 of the result = 2 then exit doHelpput line 2 of the result into theResultput theResult into theItemif theResult = 1 thengo cd "What is ShowDialog"else if theResult = 2 thengo cd "Alert Types"else if theResult = 3 thengo cd "Color Icon Bars"send mouseUp to bg btn ID 10find "cicn"else if theResult = 4 thengo cd "Color Icon Bars"send mouseUp to bg btn ID 11else if theResult = 5 thengo cd "Shareware"send mouseUp to cd btn ID 5else if theResult = 6 thengo cd "Trouble Shooting"else if theResult = 7 thengo cd "Dialog Types"else if theResult = 8 the